home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / SSISL.z / SSISL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSSSSSIIIISSSSLLLL((((3333FFFF))))                                                            SSSSSSSSIIIISSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SSISL   - SSISL solves the real symmetric system A * X = B using the
  10.      factors computed by SSIFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE SSISL(A,LDA,N,KPVT,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA REAL(LDA,N)
  20.         the output from SSIFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .
  27.  
  28.      KKKKPPPPVVVVTTTT INTEGER(N)
  29.         the pivot vector from SSIFA.
  30.  
  31.      BBBB REAL(N)
  32.         the right hand side vector.  On Return
  33.  
  34.      BBBB the solution vector  X . Error Condition
  35.  
  36.      AAAA division by zero may occur if  SSICO  has set RCOND .EQ. 0.0 or  SSIFA
  37.      has set INFO .NE. 0  .  To compute  INVERSE(A) * C  where  C  is a matrix
  38.      with  P  columns
  39.         CALL SSIFA(A,LDA,N,KPVT,INFO)
  40.         IF (INFO .NE. 0) GO TO ...
  41.         DO 10 J = 1, P
  42.         CALL SSISL(A,LDA,N,KPVT,C(1,J)) 10 CONTINUE LINPACK.  This version
  43.      dated 08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
  44.      Subroutines and Functions BLAS SAXPY,SDOT Fortran IABS
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.